Pensieve Header: Around Θ.

SetDirectory["C:\\drorbn\\AcademicPensieve\\2012-01"];
<< betaCalculus.m

(R[1,1,1/2] // dΔ[1,1,2] // β2α // FullSimplify) /. Log[Exp[x_]] :> x// βForm

(R[1,1,-1/2] // β2α // FullSimplify) /. Log[Exp[x_]] :> x// βForm

((R[1,1,1/2] // dΔ[1,1,2])**R[1,1,-1/2] // β2α // FullSimplify) /. Log[Exp[x_]] :> x// βForm